home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / program / rfm.zip / RFMREC.PAS < prev   
Pascal/Delphi Source File  |  1997-02-28  |  5KB  |  135 lines
  1. {**************************************}
  2. {       TRFM 2.5 for Delphi 16/32      }
  3. { Copyright 1997  RealSoft Development }
  4. {                - - -                 }
  5. {     RealForm Record Definitions      }
  6. {**************************************}
  7.  
  8. unit Rfmrec;
  9.  
  10. interface
  11.  
  12. uses Graphics;
  13.  
  14. type
  15.         TDrawType    =  (rfNone, rfUnused, rfText, rfFrame, rfLine, rfCkBox, rfField);
  16.         TLineType    =  (ltHorz, ltVert, ltDiagL, ltDiagR);
  17.         TFillStyle   =  (fsClear, fsSolid, fsDiagonal, fsHash);
  18.         TPageSize    =  (psLegal, psLetter, psA3, psA4, psA5);
  19.         TOrientation =  (orPortrait, orLandScape);
  20.  
  21.         {----------Header Data----------}
  22.         RFormHdr = packed record
  23.           NumRecs               : smallint;
  24.           PageSize              : TPageSize;
  25.           Thick                 : byte;
  26.           PStyle                : TPenStyle;
  27.           Width                 : Word;
  28.           Height                : Word;
  29.           VersionMajor          : byte;
  30.           VersionMinor          : byte;
  31.           Orientation           : TOrientation;
  32.           Unused                : array[0..86] of byte;
  33.           end;
  34.  
  35.         {----------Object Data----------}
  36.         RFormRec = packed record
  37.           DrawType               : TDrawType;
  38.           Left                  : smallint;
  39.           Top                   : smallint;
  40.           Width                 : word;
  41.           Height                : word;
  42.           StrIdx1               : word;
  43.           StrIdx2               : word;
  44.           unused                : array[0..11] of byte;
  45.         end;
  46.  
  47.         RFormText = packed record
  48.           DrawType              : TDrawType;
  49.           Left                  : smallint;
  50.           Top                   : smallint;
  51.           Width                 : word;
  52.           Height                : word;
  53.           StrIdx                : word;
  54.           FontIdx               : word;
  55.           FontStyle             : TFontStyles;
  56.           FontSize              : byte;
  57.           Color                 : byte;
  58.           Vert                  : boolean;
  59.           unused                : array[0..7] of byte;
  60.           end;
  61.  
  62.         RFormFrame = packed record
  63.           DrawType              : TDrawType;
  64.           Left                  : smallint;
  65.           Top                   : smallint;
  66.           Width                 : word;
  67.           Height                : word;
  68.           PStyle                : TPenStyle;
  69.           FStyle                : TFillStyle;
  70.           Color                 : byte;
  71.           LColor                : byte;
  72.           Thick                 : byte;
  73.           unused                : array[0..10] of byte;
  74.           end;
  75.  
  76.         RFormLine = packed record
  77.           DrawType              : TDrawType;
  78.           Left                  : smallint;
  79.           Top                   : smallint;
  80.           Width                 : word;
  81.           Height                : word;
  82.           PStyle                : TPenStyle;
  83.           LType                 : TLineType;
  84.           Color                 : byte;
  85.           Thick                 : byte;
  86.           unused                : array[0..11] of byte;
  87.           end;
  88.  
  89.         RFormCkBox = packed record
  90.           DrawType              : TDrawType;
  91.           Left                  : smallint;
  92.           Top                   : smallint;
  93.           Width                 : word;
  94.           Height                : word;
  95.           Color                 : byte;
  96.           Thick                 : byte;
  97.           unused                : array[0..13] of byte;
  98.           end;
  99.  
  100.         {-----------Field Data----------}
  101.         RFormField = packed record
  102.           DrawType              : TDrawType;
  103.           Left                  : smallint;
  104.           Top                   : smallint;
  105.           Width                 : word;
  106.           Height                : word;
  107.           StrIdx                : word;
  108.           FontIdx               : word;
  109.           FontStyle             : TFontStyles;
  110.           FontSize              : byte;
  111.           Color                 : byte;
  112.           Vert                  : boolean;
  113.           Format                : byte;
  114.           unused                : array[0..6] of byte;
  115.           end;
  116.  
  117.         RRFLField = packed record
  118.           Left                  : smallint;
  119.           Top                   : smallint;
  120.           Vert                  : boolean;
  121.           Format                : byte;
  122.           Name                  : String[20];
  123.           FontName              : String[32];
  124.           FontStyle             : TFontStyles;
  125.           FontSize              : byte;
  126.           FontColor             : byte;
  127.           end;
  128.  
  129.         RCopyRec = array[0..24] of byte;
  130.  
  131. implementation
  132.  
  133.  
  134. end.
  135.